home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.04 Apr 91 / Code Optimizing / Sources / Dummy.f.FPU.opt1.a < prev    next >
Encoding:
Text File  |  1990-04-26  |  4.3 KB  |  198 lines  |  [TEXT/MPS ]
  1. ;    Assembler source from Language Systems FORTRAN (Version 2.0 January 23, 1990)
  2. ;    Sat, Apr 14, 1990   16:42
  3. ;    Optimization Level 1.
  4.  
  5. ;  Floating-point operations have been commented out.
  6.  
  7.         BLANKS ON
  8.         STRING ASIS
  9.         PRINT OFF
  10.         INCLUDE 'Traps.a'
  11.         INCLUDE 'ToolEqu.a'
  12.         INCLUDE 'QuickEqu.a'
  13.         INCLUDE 'SysEqu.a'
  14.         INCLUDE 'SANEMacs.a'
  15.         PRINT ON
  16.  
  17.         MACHINE MC68030
  18.         MC68881
  19.  ;  File "mxmpy.f";  Line          1
  20.         SEG    'mxmpy'
  21. DUMMY    PROC EXPORT
  22.         LINK    A6,#$FFFFFF50
  23.         MOVEM.L    D5-D7,-(SP)
  24.         FMOVE    FP7,-(SP)
  25.  ;  File "mxmpy.f";  Line         17
  26.         BRA        L10002
  27. L10001    EQU    *
  28.         MOVE.L    #$00000001,$FFFFFFAC(A6)
  29.         MOVEA.L    $0010(A6),A0
  30.         MOVE.L    (A0),$FFFFFFB0(A6)
  31.         MOVE.L    #$0000000C,$FFFFFF70(A6)
  32.         MOVEA.L    $0010(A6),A0
  33.         MOVE.L    (A0),D0
  34.         ASL.L    #2,D0
  35.         MOVE.L    D0,D1
  36.         ADD.L    D0,D0
  37.         ADD.L    D1,D0
  38.         MOVE.L    D0,$FFFFFF70(A6)
  39.         MOVE.L    $FFFFFF70(A6),$FFFFFFB4(A6)
  40.         MOVE.L    #$00000001,$FFFFFFB8(A6)
  41.         MOVEA.L    $000C(A6),A0
  42.         MOVE.L    (A0),$FFFFFFBC(A6)
  43.         MOVE.L    $FFFFFFB4(A6),$FFFFFF70(A6)
  44.         MOVEA.L    $000C(A6),A0
  45.         MOVE.L    $FFFFFF70(A6),D1
  46.         MULS.L    $0000(A0),D1
  47.         MOVE.L    D1,$FFFFFF70(A6)
  48.         MOVE.L    $FFFFFF70(A6),$FFFFFFC0(A6)
  49.         MOVE.L    #$00000001,$FFFFFFC4(A6)
  50.         MOVEA.L    $000C(A6),A0
  51.         MOVE.L    (A0),$FFFFFFC8(A6)
  52.         MOVE.L    #$0000000C,$FFFFFF78(A6)
  53.         MOVEA.L    $000C(A6),A0
  54.         MOVE.L    (A0),D0
  55.         ASL.L    #2,D0
  56.         MOVE.L    D0,D1
  57.         ADD.L    D0,D0
  58.         ADD.L    D1,D0
  59.         MOVE.L    D0,$FFFFFF78(A6)
  60.         MOVE.L    $FFFFFF78(A6),$FFFFFFCC(A6)
  61.         MOVE.L    #$00000001,$FFFFFFD0(A6)
  62.         MOVEA.L    $0008(A6),A0
  63.         MOVE.L    (A0),$FFFFFFD4(A6)
  64.         MOVE.L    $FFFFFFCC(A6),$FFFFFF78(A6)
  65.         MOVEA.L    $0008(A6),A0
  66.         MOVE.L    $FFFFFF78(A6),D1
  67.         MULS.L    $0000(A0),D1
  68.         MOVE.L    D1,$FFFFFF78(A6)
  69.         MOVE.L    $FFFFFF78(A6),$FFFFFFD8(A6)
  70.         MOVE.L    #$00000001,$FFFFFFDC(A6)
  71.         MOVEA.L    $0010(A6),A0
  72.         MOVE.L    (A0),$FFFFFFE0(A6)
  73.         MOVE.L    #$0000000C,$FFFFFF80(A6)
  74.         MOVEA.L    $0010(A6),A0
  75.         MOVE.L    (A0),D0
  76.         ASL.L    #2,D0
  77.         MOVE.L    D0,D1
  78.         ADD.L    D0,D0
  79.         ADD.L    D1,D0
  80.         MOVE.L    D0,$FFFFFF80(A6)
  81.         MOVE.L    $FFFFFF80(A6),$FFFFFFE4(A6)
  82.         MOVE.L    #$00000001,$FFFFFFE8(A6)
  83.         MOVEA.L    $0008(A6),A0
  84.         MOVE.L    (A0),$FFFFFFEC(A6)
  85.         MOVE.L    $FFFFFFE4(A6),$FFFFFF80(A6)
  86.         MOVEA.L    $0008(A6),A0
  87.         MOVE.L    $FFFFFF80(A6),D1
  88.         MULS.L    $0000(A0),D1
  89.         MOVE.L    D1,$FFFFFF80(A6)
  90.         MOVE.L    $FFFFFF80(A6),$FFFFFFF0(A6)
  91.         RTS
  92. L10002    EQU    *
  93.         BSR        L10001
  94.  ;  File "mxmpy.f";  Line         18
  95.         MOVE.L    #$00000001,$FFFFFFA0(A6)
  96.         MOVEA.L    $0010(A6),A1
  97.         MOVE.L    (A1),D5
  98.         BLE        L10004
  99. L10003    EQU    *
  100.  ;  File "mxmpy.f";  Line         19
  101.         MOVE.L    #$00000001,$FFFFFFA4(A6)
  102.         MOVEA.L    $0008(A6),A1
  103.         MOVE.L    (A1),D6
  104.         BLE        L10006
  105. L10005    EQU    *
  106.  ;  File "mxmpy.f";  Line         20
  107.         LEA        $FFFFFFF4(A6),A1
  108.         CLR.L    (A1)+
  109.         CLR.L    (A1)+
  110.         CLR.L    (A1)+
  111.  ;  File "mxmpy.f";  Line         21
  112.         MOVE.L    #$00000001,$FFFFFFA8(A6)
  113.         MOVEA.L    $000C(A6),A1
  114.         MOVE.L    (A1),D7
  115.         BLE        L10008
  116. L10007    EQU    *
  117.  ;  File "mxmpy.f";  Line         22
  118.         MOVE.L    $FFFFFFA0(A6),D1
  119.         SUB.L    $FFFFFFAC(A6),D1
  120.         ASL.L    #2,D1
  121.         MOVE.L    D1,D0
  122.         ADD.L    D1,D1
  123.         ADD.L    D0,D1
  124.         MOVE.L    $FFFFFFA8(A6),D2
  125.         SUB.L    $FFFFFFB8(A6),D2
  126.         MULS.L    $FFFFFFB4(A6),D2
  127.         ADD.L    D1,D2
  128.         MOVE.L    D2,$FFFFFF6C(A6)
  129.         MOVE.L    $FFFFFFA8(A6),D1
  130.         SUB.L    $FFFFFFC4(A6),D1
  131.         ASL.L    #2,D1
  132.         MOVE.L    D1,D0
  133.         ADD.L    D1,D1
  134.         ADD.L    D0,D1
  135.         MOVE.L    $FFFFFFA4(A6),D2
  136.         SUB.L    $FFFFFFD0(A6),D2
  137.         MULS.L    $FFFFFFCC(A6),D2
  138.         ADD.L    D1,D2
  139.         MOVE.L    D2,$FFFFFF70(A6)
  140.         MOVEA.L    $001C(A6),A0
  141.         ADDA.L    $FFFFFF6C(A6),A0
  142. ;        FMOVE.X    (A0),FP7
  143.         MOVEA.L    $0018(A6),A1
  144.         ADDA.L    $FFFFFF70(A6),A1
  145. ;        FMUL.X    (A1),FP7
  146. ;        FADD.X    $FFFFFFF4(A6),FP7
  147. ;        FMOVE.X    FP7,$FFFFFFF4(A6)
  148.  ;  File "mxmpy.f";  Line         23
  149.         ADDQ.L    #1,$FFFFFFA8(A6)
  150.         SUBQ.L    #1,D7
  151.         BGT.S    L10007
  152. L10008    EQU    *
  153.  ;  File "mxmpy.f";  Line         24
  154.         MOVE.L    $FFFFFFA0(A6),D1
  155.         SUB.L    $FFFFFFDC(A6),D1
  156.         ASL.L    #2,D1
  157.         MOVE.L    D1,D0
  158.         ADD.L    D1,D1
  159.         ADD.L    D0,D1
  160.         MOVE.L    $FFFFFFA4(A6),D2
  161.         SUB.L    $FFFFFFE8(A6),D2
  162.         MULS.L    $FFFFFFE4(A6),D2
  163.         ADD.L    D1,D2
  164.         MOVE.L    D2,$FFFFFF84(A6)
  165.         LEA        $FFFFFFF4(A6),A0
  166.         MOVEA.L    $0014(A6),A1
  167.         ADDA.L    $FFFFFF84(A6),A1
  168.         MOVE.L    (A0)+,(A1)+
  169.         MOVE.L    (A0)+,(A1)+
  170.         MOVE.L    (A0)+,(A1)+
  171.  ;  File "mxmpy.f";  Line         25
  172.         ADDQ.L    #1,$FFFFFFA4(A6)
  173.         SUBQ.L    #1,D6
  174.         BGT        L10005
  175. L10006    EQU    *
  176.  ;  File "mxmpy.f";  Line         26
  177.         ADDQ.L    #1,$FFFFFFA0(A6)
  178.         SUBQ.L    #1,D5
  179.         BGT        L10003
  180. L10004    EQU    *
  181.  ;  File "mxmpy.f";  Line         27
  182.         FMOVE    (SP)+,FP7
  183.         MOVEM.L    (SP)+,D5-D7
  184.         UNLK    A6
  185.         RTD        #$0018
  186.  ;  File "mxmpy.f";  Line         27
  187. PROCSTR    EQU    *
  188.         DC.W    $FFFF8006
  189.         DC.B    'DUMMY '
  190.         DC.W    $0000
  191. EXTDCONST    EQU        *
  192.         DC.W    $0000,$0000,$0000,$0000,$0000,$0000
  193.  
  194.         ENDPROC
  195.  
  196.  
  197.         END
  198.